uses crt;

var st:string;

i,d,t,x,y,kq,j,lt:integer;

begin

clrscr;

readln(st);

d:=length(st);

kq:=0;

for i:=1 to d do 

  begin

    lt:=1;

for j:=1 to d-i do 

  begin

val(st[i],x,y);

lt:=lt*x;

end;

kq:=kq+x*lt;

end;

writeln(kq);

readln;

end.

#include <bits/stdc++.h>
using namespace std;
int main() {
double a, b, c, S;
cin >> a >> b;
S=(1.0/2)*a*b;
c=sqrt(a*a+b*b);
cout << fixed << setprecision(2) << "Dien tich la " << (double)S << "\nCanh huyen la " << (double)c << endl;
return 0;
}

Chúc bn học tốt!

uses crt;

var a,t,dem:integer;

begin

clrscr;

t:=0;

dem:=0;

repeat

write('Nhap a='); readln(a);

if (a mod 2=0) and (a mod 3=0) then

  begin

    t:=t+a;

dem:=dem+1;

end;

until a=0;

writeln('Trung binh cong cua cac so chia het cho 3 va 2 la: ',t/dem:4:2);

readln;

end.

Đề thiếu rồi bạn

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a+b:4:1);

readln;

end.

program b1;

uses crt;

var a,b,s:real;

begin

clrscr;

writeln('Nhap hai so a va b: ');

readln(a,b);

s:=a+b;

write('Tong cua hai so a va b la: ',s:1:1);

readln;

end.

P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.

Gọi x là số cần tìm. Điều kiện x > 0

Vì phần nguyên là một số có một chữ số nên khi viết số 2 vào bên trái thì số đó tăng thêm 20 đơn vị.

Giá trị số mới là 20 + x.

Vì chuyển dấu phẩy sang trái một chữ số thì số đó giảm đi 10 lần nên khi chuyển dấu phẩy sang trái một chữ số đối với số 20 + x thì nó có giá trị là (20 + x)/10 .

Số mới bằng 9/10 số ban đầu nên ta có phương trình:

(20 + x)/10 = 9/10 x

⇔ 20 + x = 9x

⇔ 9x – x = 20

⇔ 8x = 20

⇔ x = 2,5 (thỏa)

Vậy số cần tìm là 2,5.

số đó là  84,42 . 

tần nguyễn phuong vy trình bày rõ ràng đc ko?

4950 nha

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p;

int main()

{

cin>>a>>b>>c;

p=a+b+c;

cout<<fixed<<setprecision(2)<<p;

return 0;

}